home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / eos / sun-eos-init.el.z / sun-eos-init.el
Encoding:
Text File  |  1998-05-21  |  1.1 KB  |  39 lines
  1. ;;; sun-eos-init.el --- Initializes the XEmacs/SPARCworks interface
  2.  
  3. ;; Copyright (C) 1996  Sun Microsystems, Inc.
  4.  
  5. ;; Maintainer:    Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  6. ;; Author:      Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  7.  
  8. ;; Keywords:    SPARCworks EOS Era on SPARCworks initialize
  9.  
  10. ;;; Commentary:
  11.  
  12. ;; Initialize EOS
  13. ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
  14.  
  15. ;;; Code:
  16.  
  17. ;; This stuff needs to be done at startup time
  18. (defun eos::start ()
  19.   "Initialization needed at start-up time.  Should be done by automatic
  20. loading of eos"
  21.   (if (not (and (string-match "XEmacs" emacs-version)
  22.         (emacs-version>= 19 12)))
  23.       (error "Eos version %s only runs on XEmacs 19.12 and later"
  24.          eos::version))
  25.   (if (not noninteractive)
  26.       (progn
  27.     (eos::common-startup)
  28.     (eos::editor-startup)
  29.     (eos::debugger-startup)
  30.     (eos::debugger-extra-startup)
  31.     (eos::browser-startup)
  32.     (eos::menubar-startup))))
  33.  
  34. ;(add-hook 'before-init-hook 'eos::start t) ; append to the end of hook list
  35.  
  36. (provide 'eos-init)
  37.  
  38. ;;; sun-eos-init.el ends here
  39.